home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / easyras / frmtestm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-07-05  |  3.6 KB  |  130 lines
  1. VERSION 5.00
  2. Object = "*\A..\SUPRAS\EasyRas.vbp"
  3. Begin VB.Form frmTestMain 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   5190
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   7185
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   5190
  11.    ScaleWidth      =   7185
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton cmdAction 
  14.       Caption         =   "DialEntry"
  15.       Height          =   495
  16.       Index           =   5
  17.       Left            =   4080
  18.       TabIndex        =   6
  19.       Top             =   3555
  20.       Width           =   1515
  21.    End
  22.    Begin EasyRas.RasQC RasQC1 
  23.       Left            =   120
  24.       Top             =   3960
  25.       _ExtentX        =   1879
  26.       _ExtentY        =   1085
  27.       chkAsync        =   0   'False
  28.    End
  29.    Begin VB.CommandButton cmdAction 
  30.       Caption         =   "About"
  31.       Height          =   495
  32.       Index           =   4
  33.       Left            =   4080
  34.       TabIndex        =   5
  35.       Top             =   2985
  36.       Width           =   1515
  37.    End
  38.    Begin VB.CommandButton cmdAction 
  39.       Caption         =   "EditEntry"
  40.       Height          =   495
  41.       Index           =   3
  42.       Left            =   4080
  43.       TabIndex        =   4
  44.       Top             =   2265
  45.       Width           =   1515
  46.    End
  47.    Begin VB.CommandButton cmdAction 
  48.       Caption         =   "ListEntry"
  49.       Height          =   495
  50.       Index           =   2
  51.       Left            =   4080
  52.       TabIndex        =   3
  53.       Top             =   1605
  54.       Width           =   1515
  55.    End
  56.    Begin VB.ListBox List1 
  57.       Height          =   3480
  58.       Left            =   210
  59.       TabIndex        =   2
  60.       Top             =   390
  61.       Width           =   2805
  62.    End
  63.    Begin VB.CommandButton cmdAction 
  64.       Caption         =   "AddEntry"
  65.       Height          =   495
  66.       Index           =   1
  67.       Left            =   4080
  68.       TabIndex        =   1
  69.       Top             =   1065
  70.       Width           =   1515
  71.    End
  72.    Begin VB.CommandButton cmdAction 
  73.       Caption         =   "ConnectIt"
  74.       Height          =   495
  75.       Index           =   0
  76.       Left            =   4080
  77.       TabIndex        =   0
  78.       Top             =   495
  79.       Width           =   1515
  80.    End
  81.    Begin VB.Label lblMsg 
  82.       BorderStyle     =   1  'Fixed Single
  83.       Height          =   435
  84.       Left            =   30
  85.       TabIndex        =   7
  86.       Top             =   4710
  87.       Width           =   6825
  88.    End
  89. Attribute VB_Name = "frmTestMain"
  90. Attribute VB_GlobalNameSpace = False
  91. Attribute VB_Creatable = False
  92. Attribute VB_PredeclaredId = True
  93. Attribute VB_Exposed = False
  94. Option Explicit
  95. Private Sub Command1_Click()
  96. End Sub
  97. Private Sub cmdAction_Click(Index As Integer)
  98. Dim sEN$
  99. With RasQC1
  100.  Select Case Index
  101.    Case 0
  102.         .EntryName = "163"
  103.         .UserName = "XXX"
  104.         .UserPassWord = "XXX"
  105.         .Domain = ""
  106.         .chkAsync = True
  107.         .ConnectIt
  108.     Case 1
  109.         .AddEntry
  110.     Case 2
  111.         .FillEntryList List1
  112.         'Me.Caption = .EntryList(0)
  113.     Case 3
  114.         If List1.ListIndex = -1 Then Exit Sub
  115.         .EditEntry (List1.ListIndex)
  116.     Case 4
  117.         .AboutRasQC
  118.     Case 5
  119.         .EntryName = List1.List(List1.ListIndex)
  120.         .DialEntry
  121.  End Select
  122. End With
  123. End Sub
  124. Private Sub Form_Load()
  125.     RasQC1.FillEntryList List1
  126. End Sub
  127. Private Sub RasQC1_ConnectError(sReturnErrorString As String)
  128.    lblMsg.Caption = sReturnErrorString
  129. End Sub
  130.